﻿<Serializable()> Public MustInherit Class Usuario 'Clase abstracta, nunca tendremos una instancia de Usuario

    'Set y gets
    Public Property Nombre As String
    Public Property Contraseña As String

    Public Sub New(ByVal nombre As String, ByVal contraseña As String)
        _Nombre = nombre
        _Contraseña = contraseña
    End Sub

    'Comprobar contraseña
    Public Function comprobarContraseña(ByVal contraseña As String) As Boolean
        If _Contraseña = contraseña Then
            Return True
        End If
        Return False
    End Function
End Class
